Aminet 24/Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso/Aminet/text/edit/GED_Hexedit.lha/GED_Hexedit/hex/english/OpenAsHex.ged

Text File | 1998-01-02 | 899b | 2 lines

/* Optimized with RexxOpt 1.8 */
OPTIONS RESULTS;if (LEFT(ADDRESS(),6) ~="GOLDED") then;address 'GOLDED.1';'LOCK CURRENT RELEASE=4';if (RC ~=0) then;exit;OPTIONS FAILAT 6;SIGNAL ON SYNTAX;Filename=" ";'MORE Name=""';'REQUEST File VAR="Filename" Title="Enter file name for HexEdit"';if Exists(Filename)=0|Filename==" " then;do;'QUIT';'UNLOCK';exit;end;address 'COMMAND';'c:delete >NIL: t:gedbin';'c:delete >NIL: t:gedhex';'c:delete >NIL: "'||Filename||'.bak.hex"';'c:copy "'||Filename||'" "'||Filename||'.bak.hex"';'golded:tools/hex/hexbin b "'||Filename||'" t:gedhex';if Exists("t:hexchar.ged")=0 then;'c:copy GOLDED:tools/hex/hexchar.ged t:';address;'OPEN Filetype="HEX" t:gedhex';'SET name=doc value="'||Filename||'"';'QUERY NAME=ordinal var="nummer"';'BITS W=FALSE';address;"c:delete >NIL: t:gedhex";address;'UNLOCK';exit;SYNTAX:;SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-(";'UNLOCK';exit